home *** CD-ROM | disk | FTP | other *** search
- # pml compatible lib for the atari sfp004
- #
- # Michael Ritzert, Oktober 1990
- # ritzert@dfg.dbp.de
- #
- # FUNCTION: SIN(X)
- #
- # base = 0xfffa50
- # the fpu addresses are taken relativ to "base":
- comm = -6
- resp = -16
- zahl = 0
-
- .globl _sin
- .text
- .even
- _sin:
- lea 0xfffa50,a0
- movew #0x540e,a0@(comm) | specify function
- cmpiw #0x8900,a0@(resp) | check
- movel a7@(4),a0@ | load arg_hi
- movel a7@(8),a0@ | load arg_low
- movew #0x7400,a0@(comm) | result to d0
- # wait
- .long 0x0c688900, 0xfff067f8
- movel a0@,d0
- movel a0@,d1
- rts
-